var
x,w,r,pwd,pwd1:string;
a:char;
i:integer;
reg:tregistry;
begin
if edit1.text=''
then begin
showmessage('   ');
edit1.SetFocus;
end
else begin
 Reg:= TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
   if   Reg.OpenKey('\Software\arabteam', false)
    then
    begin
    pwd:=reg.ReadString('software\arabteam');
for i:=1 to length(pwd)do begin
        a:=pwd[i];
  r:=r+chr(ord(a)-100);
   pwd1:=edit1.text
    end;
    end;
    if r<>pwd1 then
    begin
     edit1.text:='';
     showmessage('  ');
     edit1.setfocus;
     end;
     if r=pwd1 then
     begin
     form2.show;
     form1.hide;
     end;
     IF not
      Reg.OpenKey('\Software\arabteam', false)
      then begin
        Reg.OpenKey('software\arabteam',true);
        x:=edit1.text;
        for i:=1 to length(x)do begin
        a:=x[i];
        w:=w+chr(ord(a)+100);       end;
      reg.WriteString('software\arabteam',w);
     end;
      reg.closekey;
  reg.free;
  end;
